10 RELOCATEADDRESS=49152 :REM $C000
20 PLAYERADDRESS=4096    :REM $1000
30 :
40 :
50 FORI=0TO26:READA:POKEPL+I,A:NEXT
60 POKE PL+7,(PL+21)/256:POKEPL+2,(PL+21)-PEEK(PL+7)*256
70 POKE PL+18,(RE+5)/256:POKEPL+17,(RE+5)-PEEK(PL+18)*256
80 POKE PL+23,(RE+2)/256:POKEPL+22,(RE+2)-PEEK(PL+23)*256
90 SYS PLAYERADDRESS
100 PRINT "[147]NOW TYPE:":PRINT"POKE"RE"[157],NR":PRINT"TO HEAR A SOUND-EFFECT"
110 DATA120,169,21,141,20,3,169,16,141,21,3,169,76,141,5,220,32,5,96
120 DATA88,96,32,2,96,76,49,234